Option Explicit
Sub I_Sample016()
    Dim mySht As Worksheet
    Dim myShp As Shape
    Set mySht = Worksheets(1)				'N
    For Each myShp In mySht.Shapes
        myShp.ControlFormat.PrintObject = False 'True
    Next
    Set mySht = Nothing					'
End Sub
